Packman Mail Message:
=====================

$END TXT
$KID PSN*4.0*567
**INSTALL NAME**
PSN*4.0*567
"BLD",10573,0)
PSN*4.0*567^NATIONAL DRUG FILE^0^3181121^y
"BLD",10573,1,0)
^^6^6^3181120^
"BLD",10573,1,1,0)
The purpose of this patch is to distribute the data dictionary for the VA
"BLD",10573,1,2,0)
DRUG CLASS file (#50.605) in order to set the APPLICATION GROUP of GMTS
"BLD",10573,1,3,0)
to allow selection in Health Summary.
"BLD",10573,1,4,0)
 
"BLD",10573,1,5,0)
In addition, a new API is being distributed to allow selection of drug
"BLD",10573,1,6,0)
classes in Ad Hoc reporting as well as Health Summary collections.
"BLD",10573,4,0)
^9.64PA^50.605^1
"BLD",10573,4,50.605,0)
50.605
"BLD",10573,4,50.605,222)
y^y^f^^^^n
"BLD",10573,4,"B",50.605,50.605)

"BLD",10573,6)
1^
"BLD",10573,6.3)
2
"BLD",10573,"KRN",0)
^9.67PA^1.61^23
"BLD",10573,"KRN",.4,0)
.4
"BLD",10573,"KRN",.401,0)
.401
"BLD",10573,"KRN",.402,0)
.402
"BLD",10573,"KRN",.403,0)
.403
"BLD",10573,"KRN",.5,0)
.5
"BLD",10573,"KRN",.84,0)
.84
"BLD",10573,"KRN",1.6,0)
1.6
"BLD",10573,"KRN",1.61,0)
1.61
"BLD",10573,"KRN",1.62,0)
1.62
"BLD",10573,"KRN",3.6,0)
3.6
"BLD",10573,"KRN",3.8,0)
3.8
"BLD",10573,"KRN",9.2,0)
9.2
"BLD",10573,"KRN",9.8,0)
9.8
"BLD",10573,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",10573,"KRN",9.8,"NM",1,0)
PSN50P65^^0^B18328809
"BLD",10573,"KRN",9.8,"NM","B","PSN50P65",1)

"BLD",10573,"KRN",19,0)
19
"BLD",10573,"KRN",19.1,0)
19.1
"BLD",10573,"KRN",101,0)
101
"BLD",10573,"KRN",409.61,0)
409.61
"BLD",10573,"KRN",771,0)
771
"BLD",10573,"KRN",779.2,0)
779.2
"BLD",10573,"KRN",870,0)
870
"BLD",10573,"KRN",8989.51,0)
8989.51
"BLD",10573,"KRN",8989.52,0)
8989.52
"BLD",10573,"KRN",8994,0)
8994
"BLD",10573,"KRN","B",.4,.4)

"BLD",10573,"KRN","B",.401,.401)

"BLD",10573,"KRN","B",.402,.402)

"BLD",10573,"KRN","B",.403,.403)

"BLD",10573,"KRN","B",.5,.5)

"BLD",10573,"KRN","B",.84,.84)

"BLD",10573,"KRN","B",1.6,1.6)

"BLD",10573,"KRN","B",1.61,1.61)

"BLD",10573,"KRN","B",1.62,1.62)

"BLD",10573,"KRN","B",3.6,3.6)

"BLD",10573,"KRN","B",3.8,3.8)

"BLD",10573,"KRN","B",9.2,9.2)

"BLD",10573,"KRN","B",9.8,9.8)

"BLD",10573,"KRN","B",19,19)

"BLD",10573,"KRN","B",19.1,19.1)

"BLD",10573,"KRN","B",101,101)

"BLD",10573,"KRN","B",409.61,409.61)

"BLD",10573,"KRN","B",771,771)

"BLD",10573,"KRN","B",779.2,779.2)

"BLD",10573,"KRN","B",870,870)

"BLD",10573,"KRN","B",8989.51,8989.51)

"BLD",10573,"KRN","B",8989.52,8989.52)

"BLD",10573,"KRN","B",8994,8994)

"FIA",50.605)
VA DRUG CLASS
"FIA",50.605,0)
^PS(50.605,
"FIA",50.605,0,0)
50.605I
"FIA",50.605,0,1)
y^y^f^^^^n
"FIA",50.605,0,10)

"FIA",50.605,0,11)

"FIA",50.605,0,"RLRO")

"FIA",50.605,0,"VR")
4.0^PSN
"FIA",50.605,50.605)
0
"FIA",50.605,50.60509)
0
"FIA",50.605,50.6055)
0
"FIA",50.605,50.60551)
0
"FIA",50.605,50.615)
0
"IX",50.605,50.605,"AMASTERVUID",0)
50.605^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^50.605^^^^^S
"IX",50.605,50.605,"AMASTERVUID",.1,0)
^^3^3^3050511^^
"IX",50.605,50.605,"AMASTERVUID",.1,1,0)
If multiple entries have the same VUID in the file, this cross-reference
"IX",50.605,50.605,"AMASTERVUID",.1,2,0)
can be used to identify the Master entry for a VUID associated with a
"IX",50.605,50.605,"AMASTERVUID",.1,3,0)
Term/Concept.
"IX",50.605,50.605,"AMASTERVUID",1)
S ^PS(50.605,"AMASTERVUID",$E(X(1),1,30),X(2),DA)=""
"IX",50.605,50.605,"AMASTERVUID",2)
K ^PS(50.605,"AMASTERVUID",$E(X(1),1,30),X(2),DA)
"IX",50.605,50.605,"AMASTERVUID",2.5)
K ^PS(50.605,"AMASTERVUID")
"IX",50.605,50.605,"AMASTERVUID",11.1,0)
^.114IA^2^2
"IX",50.605,50.605,"AMASTERVUID",11.1,1,0)
1^F^50.605^99.99^30^1^F
"IX",50.605,50.605,"AMASTERVUID",11.1,2,0)
2^F^50.605^99.98^^2^F
"MBREQ")
0
"PKG",136,-1)
1^1
"PKG",136,0)
NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 3.14
"PKG",136,22,0)
^9.49I^1^1
"PKG",136,22,1,0)
4.0^2981030^2981223^11595
"PKG",136,22,1,"PAH",1,0)
567^3181121^10000000200
"PKG",136,22,1,"PAH",1,1,0)
^^6^6^3181121
"PKG",136,22,1,"PAH",1,1,1,0)
The purpose of this patch is to distribute the data dictionary for the VA
"PKG",136,22,1,"PAH",1,1,2,0)
DRUG CLASS file (#50.605) in order to set the APPLICATION GROUP of GMTS
"PKG",136,22,1,"PAH",1,1,3,0)
to allow selection in Health Summary.
"PKG",136,22,1,"PAH",1,1,4,0)
 
"PKG",136,22,1,"PAH",1,1,5,0)
In addition, a new API is being distributed to allow selection of drug
"PKG",136,22,1,"PAH",1,1,6,0)
classes in Ad Hoc reporting as well as Health Summary collections.
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
1
"RTN","PSN50P65")
0^1^B18328809^B15666372
"RTN","PSN50P65",1,0)
PSN50P65 ;BIR/LDT - API FOR INFORMATION FROM FILE 50.605;Nov 16, 2018@10:30
"RTN","PSN50P65",2,0)
 ;;4.0;NATIONAL DRUG FILE;**80,567**;30 Oct 98;Build 2
"RTN","PSN50P65",3,0)
 ;
"RTN","PSN50P65",4,0)
IEN(PSNIEN,PSNFT,LIST) ;
"RTN","PSN50P65",5,0)
 ;PSNIEN - IEN of entry in VA DRUG CLASS file (#50.605).
"RTN","PSN50P65",6,0)
 ;PSNFT - Free Text name in  VA DRUG CLASS file (#50.605).
"RTN","PSN50P65",7,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSN50P65",8,0)
 ;       Field Number of the data piece beingreturned.
"RTN","PSN50P65",9,0)
 ;Returns CODE field (#.01), and CLASSIFICATION field (#1) of  VA DRUG CLASS file (#50.605).
"RTN","PSN50P65",10,0)
 N DIERR,ZZERR,PSN50P65,PSN
"RTN","PSN50P65",11,0)
 I $G(LIST)']"" Q
"RTN","PSN50P65",12,0)
 K ^TMP($J,LIST)
"RTN","PSN50P65",13,0)
 I +$G(PSNIEN)'>0,($G(PSNFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",14,0)
 I $G(PSNIEN)]"",+$G(PSNIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",15,0)
 I $G(PSNIEN)]"" N PSNIEN2 S PSNIEN2=$$FIND1^DIC(50.605,"","B","`"_PSNIEN,,,"") D
"RTN","PSN50P65",16,0)
 .I +PSNIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",17,0)
 .S ^TMP($J,LIST,0)=1
"RTN","PSN50P65",18,0)
 .D GETS^DIQ(50.605,+PSNIEN2,".01;1","IE","PSN50P65") S PSN(1)=0
"RTN","PSN50P65",19,0)
 .F  S PSN(1)=$O(PSN50P65(50.605,PSN(1))) Q:'PSN(1)  D SETZRO
"RTN","PSN50P65",20,0)
 I $G(PSNIEN)="",$G(PSNFT)]"" D
"RTN","PSN50P65",21,0)
 .I PSNFT["??" D LOOP(1) Q
"RTN","PSN50P65",22,0)
 .D FIND^DIC(50.605,,"@;.01;1","QP",PSNFT,,"B",,,"")
"RTN","PSN50P65",23,0)
 .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",24,0)
 .I +^TMP("DILIST",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) N PSNXX S PSNXX=0 F  S PSNXX=$O(^TMP("DILIST",$J,PSNXX)) Q:'PSNXX  D
"RTN","PSN50P65",25,0)
 ..S PSNIEN=+^TMP("DILIST",$J,PSNXX,0) K PSN50P65 D GETS^DIQ(50.605,+PSNIEN,".01;1","IE","PSN50P65") S PSN(1)=0
"RTN","PSN50P65",26,0)
 ..F  S PSN(1)=$O(PSN50P65(50.605,PSN(1))) Q:'PSN(1)  D SETZRO
"RTN","PSN50P65",27,0)
 K ^TMP("DILIST",$J)
"RTN","PSN50P65",28,0)
 Q
"RTN","PSN50P65",29,0)
 ;
"RTN","PSN50P65",30,0)
ROOT(PSNC) ;
"RTN","PSN50P65",31,0)
 ;Q  "^PS(50.605, ""C"")" if PSNC is passed in as 1.  If PSNC is null, Q "^PS(50.605,"
"RTN","PSN50P65",32,0)
 I $G(PSNC)'=1  Q "^PS(50.605,"
"RTN","PSN50P65",33,0)
 Q "^PS(50.605,""C"")"
"RTN","PSN50P65",34,0)
 ;
"RTN","PSN50P65",35,0)
C(PSNIEN,PSNFT,LIST) ;
"RTN","PSN50P65",36,0)
 ;PSNIEN - IEN of entry in  VA DRUG CLASS file (#50.605).
"RTN","PSN50P65",37,0)
 ;PSNFT - Free Text name in  VA DRUG CLASS file (#50.605).
"RTN","PSN50P65",38,0)
 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,Field Number where Field Number is the
"RTN","PSN50P65",39,0)
 ;       Field Number of the data piece being returned.
"RTN","PSN50P65",40,0)
 ;Returns CODE field (#.01), CLASSIFICATION field (#1),PARENT CLASS field (#2), and TYPE field (#3)
"RTN","PSN50P65",41,0)
 ;of  VA DRUG CLASS file (#50.605).
"RTN","PSN50P65",42,0)
 N DIERR,ZZERR,PSN50P65,PSN
"RTN","PSN50P65",43,0)
 I $G(LIST)']"" Q
"RTN","PSN50P65",44,0)
 K ^TMP($J,LIST)
"RTN","PSN50P65",45,0)
 I +$G(PSNIEN)'>0,($G(PSNFT)']"") S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",46,0)
 I $G(PSNIEN)]"",+$G(PSNIEN)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",47,0)
 I +$G(PSNIEN)>0 N PSNIEN2 S PSNIEN2=$$FIND1^DIC(50.605,"","A","`"_PSNIEN,"C",,"") D
"RTN","PSN50P65",48,0)
 .I +PSNIEN2'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",49,0)
 .S ^TMP($J,LIST,0)=1
"RTN","PSN50P65",50,0)
 .D GETS^DIQ(50.605,+PSNIEN2,".01;1;2;3","IE","PSN50P65") S PSN(1)=0
"RTN","PSN50P65",51,0)
 .F  S PSN(1)=$O(PSN50P65(50.605,PSN(1))) Q:'PSN(1)  D SETZRO2
"RTN","PSN50P65",52,0)
 I $G(PSNIEN)="",$G(PSNFT)]"" D
"RTN","PSN50P65",53,0)
 .I PSNFT["??" D LOOP(2) Q
"RTN","PSN50P65",54,0)
 .D FIND^DIC(50.605,,"@;.01;1","QP",PSNFT,,"C",,,"")
"RTN","PSN50P65",55,0)
 .I +$G(^TMP("DILIST",$J,0))=0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
"RTN","PSN50P65",56,0)
 .I +^TMP("DILIST",$J,0)>0 S ^TMP($J,LIST,0)=+^TMP("DILIST",$J,0) N PSNXX S PSNXX=0 F  S PSNXX=$O(^TMP("DILIST",$J,PSNXX)) Q:'PSNXX  D
"RTN","PSN50P65",57,0)
 ..S PSNIEN=+^TMP("DILIST",$J,PSNXX,0) K PSN50P65 D GETS^DIQ(50.605,+PSNIEN,".01;1;2;3","IE","PSN50P65") S PSN(1)=0
"RTN","PSN50P65",58,0)
 ..F  S PSN(1)=$O(PSN50P65(50.605,PSN(1))) Q:'PSN(1)  D SETZRO2
"RTN","PSN50P65",59,0)
 K ^TMP("DILIST",$J)
"RTN","PSN50P65",60,0)
 Q
"RTN","PSN50P65",61,0)
 ;
"RTN","PSN50P65",62,0)
SETZRO ;
"RTN","PSN50P65",63,0)
 S ^TMP($J,LIST,+PSN(1),.01)=$G(PSN50P65(50.605,PSN(1),.01,"I"))
"RTN","PSN50P65",64,0)
 S ^TMP($J,LIST,"B",$G(PSN50P65(50.605,PSN(1),.01,"I")),+PSN(1))=""
"RTN","PSN50P65",65,0)
 S ^TMP($J,LIST,+PSN(1),1)=$G(PSN50P65(50.605,PSN(1),1,"I"))
"RTN","PSN50P65",66,0)
 Q
"RTN","PSN50P65",67,0)
 ;
"RTN","PSN50P65",68,0)
SETZRO2 ;
"RTN","PSN50P65",69,0)
 S ^TMP($J,LIST,+PSN(1),.01)=$G(PSN50P65(50.605,PSN(1),.01,"I"))
"RTN","PSN50P65",70,0)
 S ^TMP($J,LIST,"C",$G(PSN50P65(50.605,PSN(1),.01,"I")),+PSN(1))=""
"RTN","PSN50P65",71,0)
 S ^TMP($J,LIST,+PSN(1),1)=$G(PSN50P65(50.605,PSN(1),1,"I"))
"RTN","PSN50P65",72,0)
 S ^TMP($J,LIST,+PSN(1),2)=$S($G(PSN50P65(50.605,PSN(1),2,"I"))="":"",1:PSN50P65(50.605,PSN(1),2,"I")_"^"_PSN50P65(50.605,PSN(1),2,"E"))
"RTN","PSN50P65",73,0)
 S ^TMP($J,LIST,+PSN(1),3)=$S($G(PSN50P65(50.605,PSN(1),3,"I"))="":"",1:PSN50P65(50.605,PSN(1),3,"I")_"^"_PSN50P65(50.605,PSN(1),3,"E"))
"RTN","PSN50P65",74,0)
 Q
"RTN","PSN50P65",75,0)
 ;
"RTN","PSN50P65",76,0)
LOOP(PSN) ;
"RTN","PSN50P65",77,0)
 N PSNIEN,CNT S CNT=0
"RTN","PSN50P65",78,0)
 S PSNIEN=0 F  S PSNIEN=$O(^PS(50.605,PSNIEN)) Q:'PSNIEN  D
"RTN","PSN50P65",79,0)
 .K PSN50P65 D GETS^DIQ(50.605,+PSNIEN,".01;1;2;3","IE","PSN50P65") S PSN(1)=0 D
"RTN","PSN50P65",80,0)
 ..F  S PSN(1)=$O(PSN50P65(50.605,PSN(1))) Q:'PSN(1)   D @(PSN) S CNT=CNT+1
"RTN","PSN50P65",81,0)
 S ^TMP($J,LIST,0)=$S(+CNT>0:CNT,1:"-1^NO DATA FOUND")
"RTN","PSN50P65",82,0)
 Q
"RTN","PSN50P65",83,0)
1 ;
"RTN","PSN50P65",84,0)
 D SETZRO
"RTN","PSN50P65",85,0)
 Q
"RTN","PSN50P65",86,0)
 ;
"RTN","PSN50P65",87,0)
2 ;
"RTN","PSN50P65",88,0)
 D SETZRO2
"RTN","PSN50P65",89,0)
 Q
"RTN","PSN50P65",90,0)
SSET(PSNC,PSNCNT,PSNI,DIR,SUB) ;Pull back a subset of the PHARMACY ORDERABLE ITEM file (#50.7)
"RTN","PSN50P65",91,0)
 ;
"RTN","PSN50P65",92,0)
 N PSNJ,X,Y
"RTN","PSN50P65",93,0)
 F  Q:PSNC'<PSNCNT  S PSNI=$O(^PS(50.605,"B",PSNI),DIR) Q:PSNI=""  S PSNJ=0 F  S PSNJ=$O(^PS(50.605,"B",PSNI,PSNJ)) Q:'PSNJ  D
"RTN","PSN50P65",94,0)
 . S Y=$G(^PS(50.605,PSNJ,0)) I $P(Y,"^",2)["INACTIVE" Q
"RTN","PSN50P65",95,0)
 . I $P(Y,"^",3)="",PSNI'="HA000" Q
"RTN","PSN50P65",96,0)
 . S PSNC=PSNC+1,^TMP(SUB,$J,1,PSNC)=PSNJ_"^"_PSNI_" - "_$P(Y,"^",2)
"RTN","PSN50P65",97,0)
 Q
"SEC","^DIC",50.605,50.605,0,"AUDIT")

"SEC","^DIC",50.605,50.605,0,"DD")

"SEC","^DIC",50.605,50.605,0,"DEL")

"SEC","^DIC",50.605,50.605,0,"LAYGO")

"SEC","^DIC",50.605,50.605,0,"RD")

"SEC","^DIC",50.605,50.605,0,"WR")

"VER")
8.0^22.2
"^DD",50.605,50.605,0)
FIELD^^5^9
"^DD",50.605,50.605,0,"DDA")
N
"^DD",50.605,50.605,0,"DT")
3181120
"^DD",50.605,50.605,0,"ID",1)
D EN^DDIOL("   "_$P(^(0),U,2))
"^DD",50.605,50.605,0,"IX","AC",50.605,2)

"^DD",50.605,50.605,0,"IX","AVUID",50.605,99.99)

"^DD",50.605,50.605,0,"IX","B",50.605,.01)

"^DD",50.605,50.605,0,"IX","C",50.605,1)

"^DD",50.605,50.605,0,"NM","VA DRUG CLASS")

"^DD",50.605,50.605,0,"PT",50,25)

"^DD",50.605,50.605,0,"PT",50.605,2)

"^DD",50.605,50.605,0,"PT",50.68,15)

"^DD",50.605,50.605,0,"PT",50.6816,.01)

"^DD",50.605,50.605,0,"PT",100.517,2)

"^DD",50.605,50.605,0,"PT",100.5173,.01)

"^DD",50.605,50.605,0,"PT",119.985,.01)

"^DD",50.605,50.605,0,"PT",120.8,1)

"^DD",50.605,50.605,0,"PT",120.803,.01)

"^DD",50.605,50.605,0,"PT",120.8205,.01)

"^DD",50.605,50.605,0,"PT",142.14,.01)

"^DD",50.605,50.605,0,"PT",798.6,.01)

"^DD",50.605,50.605,0,"PT",801.015,.01)

"^DD",50.605,50.605,0,"PT",810.31,.04)

"^DD",50.605,50.605,0,"PT",810.32,.01)

"^DD",50.605,50.605,0,"PT",811.52,.01)

"^DD",50.605,50.605,0,"PT",811.902,.01)

"^DD",50.605,50.605,0,"VRPK")
PSN
"^DD",50.605,50.605,.01,0)
CODE^RFa^^0;1^K:$L(X)>5!($L(X)<5)!'(X?2A3N)!(X'?.ANP) X
"^DD",50.605,50.605,.01,.1)
CLASSIFICATION CODE
"^DD",50.605,50.605,.01,1,0)
^.1
"^DD",50.605,50.605,.01,1,1,0)
50.605^B
"^DD",50.605,50.605,.01,1,1,1)
S ^PS(50.605,"B",$E(X,1,30),DA)=""
"^DD",50.605,50.605,.01,1,1,2)
K ^PS(50.605,"B",$E(X,1,30),DA)
"^DD",50.605,50.605,.01,3)
Enter the classification number (i.e. AH000, GH351).
"^DD",50.605,50.605,.01,7.5)
I $G(DIC(0))["L",'$D(XUMF) K X D EN^DDIOL("Entries Must be edited via the Master File Server (MFS).","","!?5,$C(7)")
"^DD",50.605,50.605,.01,8.5)
^
"^DD",50.605,50.605,.01,9)
^
"^DD",50.605,50.605,.01,21,0)
^^1^1^2910130^
"^DD",50.605,50.605,.01,21,1,0)
This is the five alphanumeric character code of the classification.
"^DD",50.605,50.605,.01,"AUDIT")
y
"^DD",50.605,50.605,.01,"DEL",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server (MFS).","","!?5,$C(7)")
"^DD",50.605,50.605,.01,"DT")
2961121
"^DD",50.605,50.605,.01,"LAYGO",1,0)
D:'$D(XUMF) EN^DDIOL("Entries must be added via the Master File Server (MFS).","","!?5,$C(7)") I $D(XUMF)
"^DD",50.605,50.605,1,0)
CLASSIFICATION^Fa^^0;2^K:$L(X)>64!($L(X)<1) X
"^DD",50.605,50.605,1,1,0)
^.1
"^DD",50.605,50.605,1,1,1,0)
50.605^C^MUMPS
"^DD",50.605,50.605,1,1,1,1)
S ^PS(50.605,"C",$E(X,1,64),DA)=""
"^DD",50.605,50.605,1,1,1,2)
K ^PS(50.605,"C",$E(X,1,64),DA)
"^DD",50.605,50.605,1,1,1,"%D",0)
^^2^2^2981014^^^^
"^DD",50.605,50.605,1,1,1,"%D",1,0)
This cross-reference stores the classification name.
"^DD",50.605,50.605,1,1,1,"%D",2,0)
In the form of: ^PS(50.605,"C",Classification,DA)
"^DD",50.605,50.605,1,1,1,"DT")
2930224
"^DD",50.605,50.605,1,3)
Enter the description of this classification.
"^DD",50.605,50.605,1,8.5)
^
"^DD",50.605,50.605,1,9)
^
"^DD",50.605,50.605,1,21,0)
^^1^1^2961121^^
"^DD",50.605,50.605,1,21,1,0)
This is the name of the classification.
"^DD",50.605,50.605,1,"AUDIT")
y
"^DD",50.605,50.605,1,"DT")
2961121
"^DD",50.605,50.605,2,0)
PARENT CLASS^P50.605'a^PS(50.605,^0;3^Q
"^DD",50.605,50.605,2,1,0)
^.1
"^DD",50.605,50.605,2,1,1,0)
50.605^AC
"^DD",50.605,50.605,2,1,1,1)
S ^PS(50.605,"AC",$E(X,1,30),DA)=""
"^DD",50.605,50.605,2,1,1,2)
K ^PS(50.605,"AC",$E(X,1,30),DA)
"^DD",50.605,50.605,2,1,1,"%D",0)
^^4^4^3090109^
"^DD",50.605,50.605,2,1,1,"%D",1,0)
Introduced by PSN*4*193 as part of the Patients on Specific Drug(s)
"^DD",50.605,50.605,2,1,1,"%D",2,0)
Multidivisional Enhancements Class III to Class I Conversion Project
"^DD",50.605,50.605,2,1,1,"%D",3,0)
(PSJ*5*214).  This index permits identification of all VA DRUG CLASS
"^DD",50.605,50.605,2,1,1,"%D",4,0)
entries that belong to a selected PARENT CLASS (field #2).
"^DD",50.605,50.605,2,1,1,"DT")
2991102
"^DD",50.605,50.605,2,8.5)
^
"^DD",50.605,50.605,2,9)
^
"^DD",50.605,50.605,2,21,0)
^^1^1^2910130^
"^DD",50.605,50.605,2,21,1,0)
This is the parent class.
"^DD",50.605,50.605,2,"AUDIT")
y
"^DD",50.605,50.605,2,"DT")
2961121
"^DD",50.605,50.605,3,0)
TYPE^Sa^0:MAJOR;1:MINOR;2:SUB-CLASS;^0;4^Q
"^DD",50.605,50.605,3,8.5)
^
"^DD",50.605,50.605,3,9)
^
"^DD",50.605,50.605,3,21,0)
^^1^1^2961112^^
"^DD",50.605,50.605,3,21,1,0)
This is the type of the classification.
"^DD",50.605,50.605,3,"AUDIT")
y
"^DD",50.605,50.605,3,"DT")
2961121
"^DD",50.605,50.605,4,0)
DESCRIPTION^50.615^^1;0
"^DD",50.605,50.605,4,8.5)
^
"^DD",50.605,50.605,4,9)
^
"^DD",50.605,50.605,4,21,0)
^^1^1^2911205^^^
"^DD",50.605,50.605,4,21,1,0)
This is a description of the classification.
"^DD",50.605,50.605,5,0)
CODING SYSTEM^50.6055^^5;0
"^DD",50.605,50.605,5,21,0)
^.001^2^2^3161110^^^^
"^DD",50.605,50.605,5,21,1,0)
This multiple stores the coding system(s) associated with the codes
"^DD",50.605,50.605,5,21,2,0)
identifying this VA Drug Class.
"^DD",50.605,50.605,99.98,0)
MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q
"^DD",50.605,50.605,99.98,1,0)
^.1^^0
"^DD",50.605,50.605,99.98,9)
^
"^DD",50.605,50.605,99.98,21,0)
^^1^1^3050309^
"^DD",50.605,50.605,99.98,21,1,0)
This field identifies the Master entry for a VUID associated with a Term/Concept.
"^DD",50.605,50.605,99.98,"DT")
3050511
"^DD",50.605,50.605,99.99,0)
VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X
"^DD",50.605,50.605,99.99,1,0)
^.1
"^DD",50.605,50.605,99.99,1,1,0)
50.605^AVUID
"^DD",50.605,50.605,99.99,1,1,1)
S ^PS(50.605,"AVUID",$E(X,1,30),DA)=""
"^DD",50.605,50.605,99.99,1,1,2)
K ^PS(50.605,"AVUID",$E(X,1,30),DA)
"^DD",50.605,50.605,99.99,1,1,3)
XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER
"^DD",50.605,50.605,99.99,1,1,"%D",0)
^^1^1^3050309^
"^DD",50.605,50.605,99.99,1,1,"%D",1,0)
This cross reference is by VUID.
"^DD",50.605,50.605,99.99,1,1,"DT")
3050309
"^DD",50.605,50.605,99.99,3)
Answer must be 1-20 characters in length.
"^DD",50.605,50.605,99.99,9)
^
"^DD",50.605,50.605,99.99,21,0)
^.001^1^1^3050412^^
"^DD",50.605,50.605,99.99,21,1,0)
VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide.
"^DD",50.605,50.605,99.99,"DT")
3050511
"^DD",50.605,50.605,99.991,0)
EFFECTIVE DATE/TIME^50.60509DA^^TERMSTATUS;0
"^DD",50.605,50.605,99.991,21,0)
^^1^1^3050511^
"^DD",50.605,50.605,99.991,21,1,0)
Describes the pair Status and Effective Date/Time for each reference term.
"^DD",50.605,50.60509,0)
EFFECTIVE DATE/TIME SUB-FIELD^^.02^2
"^DD",50.605,50.60509,0,"DT")
3050511
"^DD",50.605,50.60509,0,"IX","B",50.60509,.01)

"^DD",50.605,50.60509,0,"NM","EFFECTIVE DATE/TIME")

"^DD",50.605,50.60509,0,"UP")
50.605
"^DD",50.605,50.60509,.01,0)
EFFECTIVE DATE/TIME^RDXI^^0;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
"^DD",50.605,50.60509,.01,1,0)
^.1
"^DD",50.605,50.60509,.01,1,1,0)
50.60509^B
"^DD",50.605,50.60509,.01,1,1,1)
S ^PS(50.605,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)=""
"^DD",50.605,50.60509,.01,1,1,2)
K ^PS(50.605,DA(1),"TERMSTATUS","B",$E(X,1,30),DA)
"^DD",50.605,50.60509,.01,9)
^
"^DD",50.605,50.60509,.01,21,0)
^^1^1^3050511^
"^DD",50.605,50.60509,.01,21,1,0)
This is the date/time when the Status of the term was established.
"^DD",50.605,50.60509,.01,"DT")
3050511
"^DD",50.605,50.60509,.02,0)
STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q
"^DD",50.605,50.60509,.02,9)
^
"^DD",50.605,50.60509,.02,21,0)
^^2^2^3050511^
"^DD",50.605,50.60509,.02,21,1,0)
The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If the term 'ACTIVE', then the term will be accessible by end-users to document a particular  patient event. If 'INACTIVE', then the term will only be accessible by the application
"^DD",50.605,50.60509,.02,21,2,0)
to display legacy data.
"^DD",50.605,50.60509,.02,"DT")
3050511
"^DD",50.605,50.6055,0)
CODING SYSTEM SUB-FIELD^^.02^2
"^DD",50.605,50.6055,0,"DT")
3161104
"^DD",50.605,50.6055,0,"IX","B",50.6055,.01)

"^DD",50.605,50.6055,0,"NM","CODING SYSTEM")

"^DD",50.605,50.6055,0,"UP")
50.605
"^DD",50.605,50.6055,.01,0)
CODING SYSTEM^Fa^^0;1^K:$L(X)>10!($L(X)<3) X
"^DD",50.605,50.6055,.01,1,0)
^.1
"^DD",50.605,50.6055,.01,1,1,0)
50.6055^B
"^DD",50.605,50.6055,.01,1,1,1)
S ^PS(50.605,DA(1),5,"B",$E(X,1,30),DA)=""
"^DD",50.605,50.6055,.01,1,1,2)
K ^PS(50.605,DA(1),5,"B",$E(X,1,30),DA)
"^DD",50.605,50.6055,.01,3)
Answer must be 3-10 characters in length.
"^DD",50.605,50.6055,.01,21,0)
^.001^2^2^3161110^^^
"^DD",50.605,50.6055,.01,21,1,0)
This field indicates the coding system associated with the codes
"^DD",50.605,50.6055,.01,21,2,0)
identifying this VA Drug Class. Example; RxNorm, SNOMED-CT, UMLS.
"^DD",50.605,50.6055,.01,"AUDIT")
y
"^DD",50.605,50.6055,.01,"DT")
3161104
"^DD",50.605,50.6055,.02,0)
CODE^50.60551^^1;0
"^DD",50.605,50.6055,.02,21,0)
^.001^2^2^3161110^^^^
"^DD",50.605,50.6055,.02,21,1,0)
This multiple stores the code(s) representing this VA Drug Class
"^DD",50.605,50.6055,.02,21,2,0)
within this coding system.
"^DD",50.605,50.60551,0)
CODE SUB-FIELD^^.01^1
"^DD",50.605,50.60551,0,"DT")
3160919
"^DD",50.605,50.60551,0,"IX","B",50.60551,.01)

"^DD",50.605,50.60551,0,"NM","CODE")

"^DD",50.605,50.60551,0,"UP")
50.6055
"^DD",50.605,50.60551,.01,0)
CODE^Fa^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",50.605,50.60551,.01,1,0)
^.1
"^DD",50.605,50.60551,.01,1,1,0)
50.60551^B
"^DD",50.605,50.60551,.01,1,1,1)
S ^PS(50.605,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",50.605,50.60551,.01,1,1,2)
K ^PS(50.605,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
"^DD",50.605,50.60551,.01,3)
Answer must be 1-30 characters in length.
"^DD",50.605,50.60551,.01,21,0)
^.001^2^2^3161110^^^^
"^DD",50.605,50.60551,.01,21,1,0)
This code represents this VA Drug Class within this coding system.
"^DD",50.605,50.60551,.01,21,2,0)
For example; Cetirizine RxCUI=20610. The entry would be 20610.
"^DD",50.605,50.60551,.01,"AUDIT")
y
"^DD",50.605,50.60551,.01,"DT")
3160919
"^DD",50.605,50.615,0)
DESCRIPTION SUB-FIELD^NL^.01^1
"^DD",50.605,50.615,0,"NM","DESCRIPTION")

"^DD",50.605,50.615,0,"UP")
50.605
"^DD",50.605,50.615,.01,0)
DESCRIPTION^W^^0;1^Q
"^DD",50.605,50.615,.01,21,0)
^^1^1^2961121^^^^
"^DD",50.605,50.615,.01,21,1,0)
This is a description of the classification.
"^DIC",50.605,50.605,0)
VA DRUG CLASS^50.605I
"^DIC",50.605,50.605,0,"GL")
^PS(50.605,
"^DIC",50.605,50.605,"%",0)
^1.005^1^1
"^DIC",50.605,50.605,"%",1,0)
GMTS
"^DIC",50.605,50.605,"%","B","GMTS",1)

"^DIC",50.605,50.605,"%D",0)
^1.001^23^23^3181102^^^^
"^DIC",50.605,50.605,"%D",1,0)
Per VHA Directive 2005-044, this file has been "locked down"
"^DIC",50.605,50.605,"%D",2,0)
by Data Standardization (DS). The file definition (i.e. data dictionary)
"^DIC",50.605,50.605,"%D",3,0)
shall not be modified. All additions, changes and deletions to entries in
"^DIC",50.605,50.605,"%D",4,0)
the file shall be done by Enterprise Reference Terminology (ERT) using the
"^DIC",50.605,50.605,"%D",5,0)
Master File Server (MFS), provided by Common Services (CS). Creating and/or
"^DIC",50.605,50.605,"%D",6,0)
editing locally defined fields in the file are not permitted. Use of
"^DIC",50.605,50.605,"%D",7,0)
locally defined fields that were created prior to VHA Directive
"^DIC",50.605,50.605,"%D",8,0)
2005-044 shall not be supported.
"^DIC",50.605,50.605,"%D",9,0)
 
"^DIC",50.605,50.605,"%D",10,0)
This file contains the VA Drug Classifications. Each five-character
"^DIC",50.605,50.605,"%D",11,0)
alpha-numeric code specifies a broad classification and a specific
"^DIC",50.605,50.605,"%D",12,0)
type of product. The first two characters are letters and form the
"^DIC",50.605,50.605,"%D",13,0)
mnemonic for the major classification (e.g., AM for antimicrobials).
"^DIC",50.605,50.605,"%D",14,0)
Characters 3 through 5 are numbers and form the basis for subclassification.
"^DIC",50.605,50.605,"%D",15,0)
The VA Drug Classification system classifies drug products, not
"^DIC",50.605,50.605,"%D",16,0)
generic ingredients. Drug products with local effects are classified
"^DIC",50.605,50.605,"%D",17,0)
by route of administration (e.g., dermatological, ophthalmic). If a
"^DIC",50.605,50.605,"%D",18,0)
product is not classified by route of administration, it is classified
"^DIC",50.605,50.605,"%D",19,0)
in most instances under a specific chemical or pharmacological
"^DIC",50.605,50.605,"%D",20,0)
classification (e.g., beta-blockers, cephalosporins). If a product
"^DIC",50.605,50.605,"%D",21,0)
is not classified by route of administration, or chemical or
"^DIC",50.605,50.605,"%D",22,0)
pharmacological subclassification, it may be classified under a
"^DIC",50.605,50.605,"%D",23,0)
therapeutic category (e.g., antilipemic agents, antiparkinson agents).
"^DIC",50.605,"B","VA DRUG CLASS",50.605)

"BLD",10573,6)
1^
$END KID PSN*4.0*567
